home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #5 / Amiga Plus CD - 1996 - No. 5.iso / pd / tools / diropus5 / show_opus5 / install < prev    next >
Text File  |  1996-02-01  |  14KB  |  432 lines
  1. ; * $VER: Install Animplaer for Opus5 1.0 (30-Jan-96)
  2. ; * Script written by Eckhard Ludwig
  3. ;=============================================================================
  4.  
  5. (complete 0)
  6.  
  7. (set defaultdest        "DOpus5:Arexx")
  8. (set GuideDir           "Dopus5:")
  9. (set Opt 2)
  10. (set PrefsPrompt        "Settings for the installed programmes.")
  11. (set MPEGPrompt         "Found old settings for SHOW_DT.dopus5.\n\nSelect 'no' for install new settings !")
  12. (set MPPrompt           "SHOW_DT.dopus5 needed ")
  13. (set MPPrompt2        "\nPlease select drawer or path do Player !")
  14. (set MPERROR            " is not installed or error do path !\nPlease install mpeg_play (from the amipeg05.lha package) do SYS:C/mpeg_play")
  15. (set PRPrompt             "Please select your prozessor")
  16. (set GRAFIKPrompt       "Please select Amigagrafik or Grafik-Card.")
  17. (set SCREENPrompt       "Please select Screenmode.")
  18. (set GuidePrompt        "For programm exists guide.")
  19. (set GuideDirPrompt     "Please select drawer for guide.")
  20. (set InstallPrompt      "Which of the following locale should be installed ?")
  21. (set Opus5DirPrompt     "DirectoryOpus not found ?\nPlease select path do DirectoryOpus !")
  22. (set Opus5Message       "Is DirectoryOpus correct installed ?\nPlease select drawer do DirectoryOpus5 or install DirectoryOpus5 first !")
  23. (set Opus5Help          "Is DirectoryOpus correct installed ?\nPlease install DirectoryOpus5 first !")
  24. (set Opus5Old           "Is version of DirectoryOpus 5.11 or later ?\n\nInstall programmes ?")
  25. (set Deinstallprompt    "Newer version of programmes exists!\nIm this delete ??")
  26. (set Opus5OHelp         "I need Version 5.11 or later of Directory Opus! Test version, see mpeg.readme.")
  27. (set ArexxDirPrompt     "Please select Arexx-Drawer for Playerscript !")
  28. (set RexxPrompt        "I need Arexx for run programmes.\n\nKlick 'Proceed' for add line\n'SYS:System/Rexxmast >NIL:'\ndo your 'User-Startup'")
  29. (set PlayerCopyPrompt   "Copy player ...")
  30. (set LocaleCopyPrompt   "Copy cataloges ...")
  31. (set FiletypesPrompt    "Copy filetypes ...")
  32. (set GuideCopyPrompt    "Copy guide ...")
  33. (set ToolsCopyPrompt    "Copy external players ...")
  34. (set OpusEdit           "Defaultdir for players is not standard (Dopus5:Arexx)!\nEdit Arexx-path AudioCD-Buttons and Filetypes.")
  35. (SET #exitMsg (CAT "Much fun with Programmes\nfor DirOpus5 wish you\n\n"
  36.                    "Eckhard Ludwig" ) )
  37.  
  38. ; deutsche Texte *****************************
  39.  
  40. (IF (= @language "deutsch")
  41. (
  42. (set Opt 1)
  43. (set PrefsPrompt        "Die neu installierten Programme müssen jetzt konfiguriert werden.\n\nEs werden Angaben zu Ihrem Amigasystem benötigt.")
  44. (set MPEGPrompt         "Es ist bereits eine Konfigurationsdatei für SHOW_DT.dopus5 vorhanden.\n\nSollen die alten Einstellungen übernommen werden ?")
  45. (set MPPrompt           "SHOW_DT.dopus5 benötigt als externen Player ")
  46. (set MPPrompt2        "\nBitte wählen Sie die Schublade, wo der Player installiert wurde, oder 'Weiter' !")
  47. (set MPERROR            " ist nicht oder unter einen abweichenden Namen installiert, oder die gewählte Schublade ist falsch !\n\nSoll ich die Voreinstellung benutzen, falls sie mpeg_play noch nicht installiert haben ?\n\nMit 'Nein' können sie erneut eine Schublade auswählen.")
  48. (set PRPrompt             "Bitte wählen Sie den Prozessortyp ihres Amiga.")
  49. (set GRAFIKPrompt       "Bitte wählen Sie die gewünschte Grafik bzw. die verwendete Grafikkarte.")
  50. (set SCREENPrompt       "Bitte wählen Sie die gewünschte Bildschirmdarstellung (Screenmode).")
  51. (set GuidePrompt        "Für das Programm existiert eine deutsche Anleitung.\n\nDiese können sie jetzt in ihre bevorzugte Schublade für Dokumentdateien installieren.")
  52. (set GuideDirPrompt     "Wohin soll die deutsche Anleitung kopiert werden?")
  53. (set Installprompt      "Bitte wählen Sie für die Programme Ihre bevorzugte(n) Sprachversion(en). Weitere Sprachen können auch nachträglich installiert werden.")
  54. (set Opus5DirPrompt     "Bitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde!")
  55. (set Opus5Message       "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\n\nIst DirectoryOpus5 korrekt installiert wurden ?\n\nBitte wählen Sie die Schublade, wo DirectoryOpus installiert wurde oder installieren sie DirectoryOpus5 zuerst !")
  56. (set Opus5Help          "Die zu installierenden Programme sind nur von DirectoryOpus5 aus nutzbar !\nIst DirectoryOpus5 korrekt installiert wurden ?\nBitte installieren sie DirectoryOpus5 zuerst !")
  57. (set Opus5Old           "Für die zu installierenden Programme wird mindesten Version 5.11 von DirectoryOpus benötigt.\n(siehe mpeg.readme).\nSollen die Programme installiert werden ?")
  58. (set Deinstallprompt    "Es ist bereits eine neuere Version des Player installiert!\nSoll dieser wirklich ersetzt werden ?")
  59. (set Opus5OHelp         "Ich benötige mindesten V5.11 von DirectoryOpus!")
  60. (set ArexxDirPrompt     "Die Programme sollten in das Arexx-Verzeichnis von DirOpus5 installiert werden!\nBitte wählen Sie eine Schublade für die Player-Scripte !")
  61. (set RexxPrompt        "Die Skript-Sprache ARexx ist im Lieferumfang von AmigaDOS enthalten, jedoch nicht verfügbar, bevor Sie nicht das Programm 'RexxMast' aufgerufen haben.\nEs wird empfohlen, ARexx immer zu starten.\nWenn Sie ARexx automatisch starten lassen möchten, klicken Sie auf 'Weiter', um ARexx von Ihrer 'User-Startup' aus starten zu lassen.")
  62. (set PlayerCopyPrompt   "Kopiere Player ...")
  63. (set LocaleCopyPrompt   "Kopiere Cataloge ...")
  64. (set FiletypesPrompt    "Kopiere Filetypes ...")
  65. (set GuideCopyPrompt    "Kopiere Anleitung ...")
  66. (set ToolsCopyPrompt    "Kopiere Softwareplayer ...")
  67. (set OpusEdit           "Das gewählte Playerverzeichnis entspricht nicht dem Standard (Dopus5:Arexx).")
  68. (SET #exitMsg (CAT "Viel Spaß mit den Programmen\nfür DirOpus5 wünscht\n\n"
  69.                    "Eckhard Ludwig" ) )
  70. )
  71. )
  72.  
  73. ;*********************************************
  74.  
  75. ;(Run ("stack 30000"))
  76. ;(Run ("C/mpeg_play.020 test.mpg -dither ham6"))
  77.  
  78. ;*********************************************
  79. ; check if Directory Opus 5 is already installed
  80. ; check Version
  81.  
  82. (if (not (exists "DOpus5:DirectoryOpus" (noreq)))
  83.     ((message Opus5Message)
  84.     (set Opus5path (askdir
  85.     (prompt Opus5DirPrompt)
  86.     (help @askdir-help)
  87.     (default "Work:")))
  88.     (if (not (exists (tackon Opus5path "DirectoryOpus") (noreq)))
  89.        (abort Opus5Help))    
  90.     (makeassign "Dopus5" Opus5path (safe))
  91. ))
  92.  
  93. (if (> 327691 (getversion "DOpus5:DirectoryOpus"))
  94.     (if (not (askbool
  95.        (prompt Opus5Old)
  96.        (help Opus5OHelp)
  97.        (default 0)))
  98.     (abort Opus5OHelp))    
  99. )
  100.  
  101. ;*********************************************
  102. ; expertentest & versionstest older version
  103.  
  104. (if (= @user-level 2)
  105.   (if (not (exists defaultdest (noreq)))
  106.     (set defaultdest (askdir
  107.     (prompt ArexxDirPrompt)
  108.     (help    @askdir-help)
  109.     (default "Rexx:")
  110. ))))
  111.  
  112. (set @default-dest defaultdest)
  113.  
  114. (if (exists (tackon defaultdest "SHOW_DT.dopus5") (noreq))
  115.    ((set version (getversion ("dopus5:arexx/SHOW_DT.dopus5")))
  116.    (if (> version (getversion "Arexx/SHOW_DT.dopus5"))
  117.        (if (not (askbool 
  118.        (prompt Deinstallprompt)
  119.        (help @askbool-help)
  120.        (default 0)))
  121.           (exit (quiet)))
  122. )))
  123.  
  124.  
  125.  
  126.  
  127. ;*********************************************
  128. ; copy the files
  129.  
  130. (copyfiles
  131.    (prompt PlayerCopyPrompt)
  132.    (help @copyfiles-help)
  133.    (source "arexx")
  134.    (dest defaultdest)
  135.    (pattern "#?.dopus5")
  136.    (confirm "EXPERT")
  137.    (optional "force")
  138. )
  139.  
  140.  
  141. (complete 15)
  142.  
  143. (IF (= @language "All")
  144.     (set Opt 511))
  145.  
  146. (set installchoice
  147.    (askoptions
  148.    (prompt InstallPrompt)
  149.    (help @askoptions-help)
  150.    (choices "Deutsch" "English" "dansk" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")
  151.    (default Opt)
  152. ))
  153.  
  154. (IF (BITAND installchoice 1)
  155.   (copyfiles
  156.    (prompt LocaleCopyPrompt)
  157.    (help @copyfiles-help)
  158.    (source "Locale/Catalogs/deutsch")
  159.    (dest "SYS:Locale/Catalogs/deutsch")
  160.    (pattern "#?.catalog")
  161.    (confirm "EXPERT")
  162.    (optional "force")
  163.   ))
  164.  
  165. (IF (BITAND installchoice 4)
  166.   (copyfiles
  167.    (prompt LocaleCopyPrompt)
  168.    (help @copyfiles-help)
  169.    (source "Locale/Catalogs/dansk")
  170.    (dest "SYS:Locale/Catalogs/dansk")
  171.    (pattern "#?.catalog")
  172.    (confirm "EXPERT")
  173.    (optional "force")
  174.   ))
  175.  
  176. (IF (BITAND installchoice 8)
  177.   (copyfiles
  178.    (prompt LocaleCopyPrompt)
  179.    (help @copyfiles-help)
  180.    (source "Locale/Catalogs/français")
  181.    (dest "SYS:Locale/Catalogs/français")
  182.    (pattern "#?.catalog")
  183.    (confirm "EXPERT")
  184.    (optional "force")
  185.   ))
  186.  
  187. (IF (BITAND installchoice 16)
  188.   (copyfiles
  189.    (prompt LocaleCopyPrompt)
  190.    (help @copyfiles-help)
  191.    (source "Locale/Catalogs/italiano")
  192.    (dest "SYS:Locale/Catalogs/italiano")
  193.    (pattern "#?.catalog")
  194.    (confirm "EXPERT")
  195.    (optional "force")
  196.   ))
  197.  
  198. (IF (BITAND installchoice 32)
  199.   (copyfiles
  200.    (prompt LocaleCopyPrompt)
  201.    (help @copyfiles-help)
  202.    (source "Locale/Catalogs/nederlands")
  203.    (dest "SYS:Locale/Catalogs/nederlands")
  204.    (pattern "#?.catalog")
  205.    (confirm "EXPERT")
  206.    (optional "force")
  207.   ))
  208.  
  209. (IF (BITAND installchoice 64)
  210.   (copyfiles
  211.    (prompt LocaleCopyPrompt)
  212.    (help @copyfiles-help)
  213.    (source "Locale/Catalogs/norsk")
  214.    (dest "SYS:Locale/Catalogs/norsk")
  215.    (pattern "#?.catalog")
  216.    (confirm "EXPERT")
  217.    (optional "force")
  218.   ))
  219.  
  220. (IF (BITAND installchoice 128)
  221.   (copyfiles
  222.    (prompt LocaleCopyPrompt)
  223.    (help @copyfiles-help)
  224.    (source "Locale/Catalogs/suomi")
  225.    (dest "SYS:Locale/Catalogs/suomi")
  226.    (pattern "#?.catalog")
  227.    (confirm "EXPERT")
  228.    (optional "force")
  229.   ))
  230.  
  231. (IF (BITAND installchoice 256)
  232.   (copyfiles
  233.    (prompt LocaleCopyPrompt)
  234.    (help @copyfiles-help)
  235.    (source "Locale/Catalogs/svenska")
  236.    (dest "SYS:Locale/Catalogs/svenska")
  237.    (pattern "#?.catalog")
  238.    (confirm "EXPERT")
  239.    (optional "force")
  240.   ))
  241.  
  242. (complete 35)
  243.  
  244. ;*********************************************
  245. ; copy filetypes
  246.  
  247. (copyfiles
  248.    (prompt FiletypesPrompt)
  249.    (help @copyfiles-help)
  250.    (source "filetypes")
  251.    (dest "DOpus5:filetypes")
  252.    (optional "force")
  253.    (confirm "EXPERT")
  254.    (pattern "#?")
  255.    (files)
  256. )
  257.  
  258. (complete 55)
  259.  
  260. ;*********************************************
  261. ; copy tools
  262.  
  263. (copyfiles
  264.    (prompt ToolsCopyPrompt)
  265.    (help @copyfiles-help)
  266.    (source "c")
  267.    (dest "SYS:C")
  268.    (pattern "#?")
  269.    (optional "force")
  270.    (confirm "EXPERT")
  271.    (files)
  272. )
  273.  
  274. (complete 65)
  275.  
  276. ;*********************************************
  277. ; ADD REXX TO USER-STARTUP
  278.  
  279. (if
  280.     (startup "ARexx"
  281.         (prompt RexxPrompt)
  282.         (help @startup-help)
  283.         (command "SYS:System/RexxMast >NIL:")
  284.     )
  285.     (run "SYS:System/RexxMast >NIL:")
  286. )
  287.  
  288. ;*********************************************
  289. ; set prefs
  290.  
  291. (message PrefsPrompt)
  292.  
  293. (if (exists (tackon defaultdest "SHOW_DT.dopus5") (noreq))
  294.     ((set MPEG_flag 1)
  295.      (if (exists ("ENVARC:SHOW_opus5.prefs") (noreq))
  296.          (if (askbool
  297.              (prompt MPEGPrompt)
  298.              (help " ")
  299.              (default 1))
  300.              (set MPEG_flag 0))    
  301.  
  302.     )))
  303.  
  304. (if (= MPEG_flag 1)
  305. (
  306.  
  307.  ((set PROZ (askchoice
  308.     (prompt PRPrompt)
  309.     (help @askchoice-help)
  310.     (choices "68020/68030" "68040/68060")
  311.     (default 0)
  312.  )))
  313.  
  314.  (set MPEGPLAY "mpeg_play.020")
  315.  (if (= PROZ 1)
  316.     (set MPEGPLAY "mpeg_play.040"))
  317.  
  318.  
  319.  ((set MPEGDir "C:")
  320.     (if (<> 1 (exists (tackon MPEGDir MPEGPLAY)))
  321.      (until (= flag_1 1)
  322.            ((set MPEGDir (askdir
  323.             (prompt (CAT MPPrompt MPEGPLAY MPPrompt2))
  324.             (help    @askdir-help)
  325.             (default "C:")
  326.                 ))
  327.            (if (<> 1 (exists (tackon MPEGDir MPEGPLAY)))
  328.              (if (askbool
  329.                  (prompt (CAT MPEGPLAY MPERROR))
  330.                  (help " "))
  331.                  ((set flag_1 1)
  332.                  (set MPEGDir "C:")))
  333.                  (set flag_1 1))
  334.            ))
  335.     )             
  336.  )
  337.  
  338.  (set MPPLAYER (tackon MPEGDir MPEGPLAY))
  339.  
  340.     (set GRAFIK (askchoice
  341.     (prompt GRAFIKPrompt)
  342.     (help @askchoice-help)
  343.     (choices "Gray (not implented !)" "Color" "HAM6" "Hires HAM (Default AGA)" "Cybergrafix (Default Cgfx)")
  344.     (default 3)
  345.  ))
  346.  
  347.    ((if (= GRAFIK 0)
  348.         (set MPOPTION "-dither color"))
  349.     (if (= GRAFIK 1)
  350.         (set MPOPTION "-dither color"))
  351.     (if (= GRAFIK 2)
  352.         (set MPOPTION "-dither ham6"))
  353.     (if (= GRAFIK 3)
  354.         (set MPOPTION "-dither hiresham"))
  355.     (if (= GRAFIK 4)
  356.         (set MPOPTION "-dither cybergfx"))
  357.  )
  358.  
  359.  (set MPOPTION2 " ")
  360.  
  361.  (if (OR (= GRAFIK 4) (= GRAFIK 5))
  362.     ((set SCREEN (askchoice
  363.     (prompt SCREENPrompt)
  364.     (help @askchoice-help)
  365.     (choices "320x240x16M" "640x480x16M" "800x600x16M" "Selectable")
  366.     (default 1)
  367.  ))
  368.  
  369.    ((if (= SCREEN 0)
  370.         (set MPOPTION2 " -modeid 40120050"))
  371.     (if (= SCREEN 1)
  372.         (set MPOPTION2 " -modeid 40120051"))
  373.     (if (= SCREEN 2)
  374.         (set MPOPTION2 " -modeid 40120052"))
  375.     (if (= SCREEN 3)
  376.         (set MPOPTION2 " "))
  377.  )))
  378.  
  379.  (textfile 
  380.     (dest "ENVARC:show_opus5.prefs")
  381.         (append ";$VER: Settings file for SHOW_DT.dopus5 1.0\n" MPPLAYER "\n" (CAT MPOPTION MPOPTION2))
  382.  )
  383.  (textfile 
  384.     (dest "ENV:show_opus5.prefs")
  385.         (append ";$VER: Settings file for SHOW_DT.dopus5 1.0\n" MPPLAYER "\n" (CAT MPOPTION MPOPTION2))
  386.  )
  387.  
  388. ))
  389.  
  390.  
  391. ;*********************************************
  392. ; set guidedir
  393.  
  394. (message GuidePrompt)
  395. (if (>= @user-level 1)
  396. (set GuideDir (askdir
  397.     (prompt GuideDirPrompt)
  398.     (help    @askdir-help)
  399.     (default "DOpus5:")
  400. )))
  401.  
  402.  
  403. (copyfiles
  404.     (prompt    GuideCopyPrompt)
  405.     (help    @copyfiles-help)
  406.     (source "show.readme")
  407.     (dest    GuideDir)
  408.         (confirm "EXPERT")
  409.         (optional "force")
  410.     (infos)
  411. )
  412.  
  413. (copyfiles
  414.     (prompt    GuideCopyPrompt)
  415.     (help    @copyfiles-help)
  416.     (source "show.guide")
  417.     (dest    GuideDir)
  418.         (confirm "EXPERT")
  419.         (optional "force")
  420.     (infos)
  421. )
  422.  
  423. (complete 100)
  424.  
  425. (if (<> defaultdest "DOpus5:Arexx")
  426.     (message OpusEdit))
  427.  
  428. (delete (tackon GuideDir ".info"))
  429.  
  430.  
  431. (EXIT #exitMsg )
  432.